Amiga Plus 2000 #5/Amiga Plus CD - 2000 - No. 5.iso/Tools/Misc/EZHome/EZHome.Install

Text File | 1998-05-08 | 4KB | 233 lines

; Installer Script for EZHome v1.0.
; 04/26/98  Jim Hines

; set up an error cleanup routine
(onerror
    (makeassign "EZsrc" (safe))
    (makeassign "EZdest" (safe))
)


(getassign "EZHome" "a")

;started
(complete 0)

;cancel the assign in case of installation restart
(makeassign "EZsrc" (safe))
(makeassign "EZdest" (safe))

; get the dest dir for EZHome (create it if it does not exist)
(set ez_dest
    (tackon
        (askdir
            (prompt "If you have not read the README.FIRST file\n, please do so before continuing.\n Where should EZHome be installed? A drawer named `EZHome' will be created.")
            (help @askdir-help)
            (default "Work:")
        )
        "EZHome"
    )
)
(makeassign "EZdest"
    (pathonly ez_dest)
    (safe)
)

(if (exists "EZdest:EZHome")
    (+ 1 1)
    (makedir
        "EZdest:EZHome"
        (infos)
        (safe)
    )
)

(if (exists "EZdest:EZHome/Configfiles")
    (+ 1 1)
    (makedir
        "EZdest:EZHome/Configfiles"
        (safe)
    )
)

(if (exists "EZdest:EZHome/Doc")
    (+ 1 1)
    (makedir
        "EZdest:EZHome/Doc"
        (safe)
        (infos)
    )
)

(if (exists "EZdest:EZHome/Images")
    (+ 1 1)
    (makedir
        "EZdest:EZHome/Images"
        (safe)
        (infos)
    )
)

(if (exists "EZdest:EZHome/Prefs")
    (+ 1 1)
    (makedir
        "EZdest:EZHome/Prefs"
        (safe)
    )
)

(if (exists "EZdest:EZHome/Prefs/Labels")
    (+ 1 1)
    (makedir
        "EZdest:EZHome/Prefs/Labels"
        (safe)
    )
)


(if (exists "EZdest:EZHome/Scripts")
    (+ 1 1)
    (makedir
        "EZdest:EZHome/Scripts"
        (safe)
    )
)


;We now have a valid destination, so tell Installer where EZHome will end up
;so the exit page will be correct.
(set @default-dest ez_dest)

(working "Copying the main executables.")
(copyfiles
    (source "EZHome")
    (dest "EZdest:EZHome")
    (infos)
)

(copyfiles
    (source "EZHomePrefs")
    (dest "EZdest:EZHome")
    (infos)
)

(working "Copying the readme file.")
(copyfiles
    (source "readme")
    (dest "EZdest:EZHome")
    (infos)
)

(working "Copying the readme.mui file.")
(copyfiles
    (source "readme.mui")
    (dest "EZdest:EZHome")
    (infos)
)

(working "Copying the EZHomePrefs startup script.")
(copyfiles
    (source "ezmui")
    (dest "EZdest:EZHome")
    (infos)
)

(working "Copying the example configuration files.")
(copyfiles
    (source "Configfiles")
    (dest "EZdest:EZHome/Configfiles")
    (all)
)

(working "Copying the Documentation files.")
(copyfiles
    (source "Doc")
    (dest "EZdest:EZHome/Doc")
    (all)
)

(working "Copying the Images.")
(copyfiles
    (source "Images")
    (dest "EZdest:EZHome/Images")
    (all)
)

(working "Copying the required MUI class.")
(copyfiles
    (source "MUI")
    (dest "MUI:")
    (all)
)

(working "Copying the required MUI class.")
(copyfiles
    (source "rexxc")
    (dest "sys:rexxc")
    (all)
)

(working "Copying the scripts.")
;copy rexx files from source to dest
(copyfiles
    (source "Scripts")
    (dest "EZdest:EZHome/Scripts")
    (all)
)

;copy library files from source to dest with version checking
(copylib
    (prompt "Copying library\n rexxreqtools.library")
    (help "Copy Librarys")
    (source "Libs/rexxreqtools.library")
    (dest "libs:")
    (confirm)
)

;copy library files from source to dest with version checking
(copylib
    (prompt "Copying library\n rexxserdev.library")
    (help "Copy Librarys")
    (source "Libs/rexxserdev.library")
    (dest "libs:")
    (confirm)
)

;add the assign for EZHome: to user-startup
(set ezassign ("Assign EZHome: \"%s\"\n" ez_dest))
(set ezrexxstart ("run >NIL: EZHome:EZHome \n"))
(startup "EZHome"
    (prompt "EZHome requires that an AmigaDOS assign be created. It will NOT work without it! The following will be added to your s:user-startup file:\n\n"
        ezassign
        ezrexxstart
        "\nIs it okay to add this now?"
        "\n\nIMPORTANT: Reboot your computer or manually assign EZHome: before using for the first time."
    )
        (help "This is required if installing EZHome for the first time.")
        (command ezassign)
        (command ezrexxstart)
)

(complete 95)

;un-snapshot the EZHome drawer icon
(tooltype
    (dest ez_dest)
    (noposition)
)


;finished with install
(complete 100)

;cleanup
(makeassign "EZsrc" (safe))
(makeassign "EZdest" (safe))

;display the guide file
(run "run sys:utilities/multiview doc/EZHome.guide" (safe))

;leave
(exit)